Scene 96

home *** CD-ROM | disk | FTP | other *** search

/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / xmasspak / vector / vector5.asm < prev next >

Wrap

Assembly Source File | 1995-04-14 | 15.6 KB | 810 lines

; ; Line-Vector-routine v2.2 ; ; done 1995 by Capella/Escape ; this routine is only for Escape-usage .... DON'T SPREAD!!!! ; ideal model large p386n stack 256 assume cs:coding points = 14 ; Anzahl Punkte areas = 36 ; Anzahl Linien ;------------------------------------- macro setcol backcol mov dx,03c8h xor al,al out dx,al inc dx mov al,backcol out dx,al out dx,al out dx,al endm ;------------------------------- macro setpage newpage mov dx,03d4h mov ax,newpage out dx,ax endm ;------------------------------- segment coding start: mov ax,data1 mov ds,ax assume ds:data1 mov ax,0a000h mov es,ax assume es:0a000h ; call set320400 call set640400 mov ax,0a800h mov es,ax assume es:0a800h main: call rotate_x call rotate_y call rotate_z call transform mov [ds:color],1 ; Objekt auf Seite 2 darstellen mov di,offset _2dpoints call draw_obj setpage 800ch ; Seite 2 an mov dx,03dah wb1: in al,dx test al,8 jne wb1 wb2: in al,dx test al,8 je wb2 mov ax,0a000h mov es,ax assume es:0a000h mov cx,32000/4 ; Objekt auf Seite 1 löschen xor si,si xor eax,eax del_p1: mov [es:si],eax add si,4 dec cx jnz del_p1 call get_oldpos ; Positionen von Seite 2 retten ;add [ds:xw],2 ; add [ds:yw],2 ; add [ds:zw],2 call rotate_x call rotate_y call rotate_z call transform mov [ds:color],1 ; Objekt auf Seite 1 darstellen mov di,offset _2dpoints call draw_obj setpage 000ch ; Seite 1 an mov dx,03dah wb3: in al,dx test al,8 jne wb3 wb4: in al,dx test al,8 je wb4 mov ax,0a800h mov es,ax assume es:0a800h mov cx,32000/4 xor si,si xor eax,eax del_p2: mov [es:si],eax add si,4 dec cx jnz del_p2 call get_oldpos ; Positionen von Seite 1 retten add [ds:xw],2 ; Neue Winkel berechnen add [ds:yw],4 add [ds:zw],2 warte: in al,60h ; Auf 'ESCAPE'-Taste warten cmp al,01 jne main exit: mov ax,0003h int 10h mov ax,4c00h int 21h ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; ROTATIONS-ROUTINE / dreht die 3d-koordinaten in x,y und z-richtung ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ proc rotate_x NEAR mov si,offset xpos mov di,offset _3dpoints mov cx,points rotx_it: push cx mov ax,[ds:zw] call cosinus imul [word ds:si] mov cx,dx mov ax,[ds:zw] call sinus imul [word ds:si+2*points] sub dx,cx sal dx,1 sal dx,1 mov [ds:di],dx mov ax,[ds:zw] call sinus imul [word ds:si] mov cx,dx mov ax,[ds:zw] call cosinus imul [word ds:si+2*points] add dx,cx sal dx,1 sal dx,1 mov [ds:di+2*points],dx pop cx add si,2 add di,2 dec cx jnz rotx_it ret endp rotate_x proc rotate_y NEAR mov cx,points mov si,offset xpos mov di,offset _3dpoints roty_it: push cx mov ax,[ds:yw] call cosinus imul [word ds:si] mov cx,dx mov ax,[ds:yw] call sinus imul [word ds:si+4*points] sub dx,cx sal dx,1 sal dx,1 mov [ds:di],dx mov ax,[ds:yw] call sinus imul [word ds:si] mov cx,dx mov ax,[ds:yw] call cosinus imul [word ds:si+4*points] add dx,cx sal dx,1 sal dx,1 mov [ds:di+4*points],dx pop cx add si,2 add di,2 dec cx jnz roty_it ret endp rotate_y proc rotate_z NEAR mov cx,points mov si,offset xpos mov di,offset _3dpoints rotz_it: push cx mov ax,[ds:xw] call cosinus imul [word ds:si+2*points] mov cx,dx mov ax,[ds:xw] call sinus imul [word ds:di+4*points] sub dx,cx sal dx,1 sal dx,1 mov [ds:di+2*points],dx mov ax,[ds:xw] call sinus imul [word ds:si+2*points] mov cx,dx mov ax,[ds:xw] call cosinus imul [word ds:di+4*points] add dx,cx sal dx,1 sal dx,1 mov [ds:di+4*points],dx pop cx add si,2 add di,2 dec cx jnz rotz_it ret endp rotate_z ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; DRAW-OBJECT / zeichnet das object bestehend aus den 2d-koordinaten ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ proc draw_obj NEAR mov dx,03c4h mov ax,0102h out dx,ax mov si,offset lines mov cx,areas Draw_Bonds: push cx xor bh,bh mov bl,[ds:si] shl bl,1 mov ax,[ds:di+bx] mov cx,[ds:di+2*points+bx] mov [ds:x1],ax mov [ds:y1],cx inc si mov bl,[ds:si] shl bl,1 mov ax,[ds:di+bx] mov cx,[ds:di+2*points+bx] mov [ds:x2],ax mov [ds:y2],cx push si push di call drawline pop di pop si inc si pop cx dec cx jnz Draw_Bonds ret endp draw_obj ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; TRANSFORMATION-ROUTINE / rechnet die 3d-koord. in 2d koord. um ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ proc transform NEAR mov cx,points mov di,offset _2dpoints mov si,offset _3dpoints trans_it:mov bx,[ds:si+4*points] sub bx,[ds:dist] mov ax,[ds:dist] imul [word ds:si] idiv bx sar ax,1 sar ax,1 sar ax,1 sar ax,1 add ax,[ds:x_add] mov [ds:di],ax mov ax,[ds:dist] imul [word ds:si+2*points] idiv bx sar ax,1 sar ax,1 sar ax,1 sar ax,1 add ax,[ds:y_add] mov [ds:di+2*points],ax add si,2 add di,2 dec cx jnz trans_it ret endp transform ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; COSINUS-ROUTINE ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ proc cosinus NEAR add ax,64 push bx push cx push si mov bx,ax shl ax,1 and ax,0ffh mov si,offset sinustable add si,ax mov ax,[ds:si] clc shl bl,1 jae cos_pos neg ax cos_pos: pop si pop cx pop bx ret endp cosinus ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; SINUS-ROUTINE ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ proc sinus NEAR push bx push cx push si mov bx,ax shl ax,1 and ax,0ffh mov si,offset sinustable add si,ax mov ax,[ds:si] clc shl bl,1 jae sin_pos neg ax sin_pos: pop si pop cx pop bx ret endp sinus ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; DRAWLINE-ROUTINE / zieht eine linie von x1,y1 nach x2,y2 mit farbe col ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ proc drawline NEAR mov ax,[ds:x1] cmp ax,[ds:x2] jz no_xadd jmp draw_it no_xadd: mov ax,[ds:y1] cmp ax,[ds:y2] jnz draw_it mov ax,[ds:x1] mov bx,[ds:y1] jmp stop_line draw_it: push bp mov ax,[ds:x1] mov bx,[ds:y1] push ax push bx mov bx,4340h mov cx,[ds:x2] sub cx,ax jge deltax_1 mov bl,48h neg cx deltax_1: mov dx,[ds:y2] pop si push si sub dx,si jge deltay_1 mov bh,4bh neg dx deltay_1: mov si,offset line_add mov [word cs:si],bx cmp cx,dx jge deltax_2 mov bl,90h xchg cx,dx jmp achse3 deltax_2: mov bh,90h achse3: mov si,offset line_sub mov [word cs:si],bx shl dx,1 mov bp,dx sub dx,cx mov di,dx sub dx,cx pop bx pop ax line_loop: push di push ax push dx push bx push cx push ax ;set a pixel in a 16 color grafix-mode mov ax,80 imul bx mov si,ax pop cx mov ax,cx shr ax,3 add si,ax and cl,7 xor cl,7 mov ah,1 shl ah,cl mov al,[es:si] or al,ah mov [es:si],al pop cx pop bx pop dx pop ax pop di cmp di,0 jge line_add line_sub: inc ax inc bx add di,bp loop line_loop jmp end_line line_add: inc ax inc bx add di,dx loop line_loop end_line: pop bp stop_line: ret endp drawline proc get_oldpos NEAR mov cx,2*points mov si,offset _2dpoints mov di,offset old2d old_loop:mov ax,[ds:si] mov [ds:di],ax add si,2 add di,2 dec cx jnz old_loop ret endp get_oldpos ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ; SET 320*400 Graphics-mode (based on 4 bitplane-splitting) ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ proc set320400 NEAR mov ax,0013h int 10h mov dx,03c4h mov al,04h out dx,al inc dx in al,dx and al,11110111b out dx,al dec dx mov ax,0f02h out dx,ax mov dx,03d4h mov al,14h out dx,al inc dx in al,dx and al,10111111b out dx,al dec dx mov al,17h out dx,al inc dx in al,dx or al,01000000b out dx,al mov dx,03d4h mov al,09h out dx,al inc dx in al,dx and al,01110000b out dx,al mov dx,03c4h mov ax,0f02h out dx,ax mov ax,0a000h mov es,ax assume es:0a000h mov cx,64000 ; alle bitplanes auf beiden grafikseiten xor di,di ; löschen... xor eax,eax cld rep stosd ret endp set320400 proc set640400 NEAR mov ax,000eh int 10h mov dx,03d4h mov al,09h out dx,al inc dx in al,dx and al,01111111b out dx,al ret endp set640400 ends coding segment data1 ; ; OBJEKT DATEN ; xpos dw -500,500,-500,500 dw -500,500,-500,500 dw -1000,1000,0,0 dw 0,0 ypos dw -500,-500,500,500 dw -500,-500,500,500 dw 0,0,-1000,1000 dw 0,0 zpos dw -500,-500,-500,-500 dw 500,500,500,500 dw 0,0,0,0 dw -1000,1000 ; ; BINDUNGSLISTE FÜR DIE OBJEKT-PUNKTE ; lines db 0,1 db 0,2 db 1,3 db 2,3 db 4,5 db 4,6 db 6,7 db 5,7 db 0,4 db 5,1 db 2,6 db 7,3 db 8,0 db 8,4 db 8,2 db 8,6 db 9,3 db 9,7 db 9,1 db 9,5 db 10,0 db 10,4 db 10,1 db 10,5 db 11,2 db 11,6 db 11,7 db 11,3 db 12,2 db 12,0 db 12,3 db 12,1 db 13,4 db 13,5 db 13,6 db 13,7 ; ; DISTANZ VOM AUGE DES BETRACHTERS IN DEN 3D-RAUM ; dist dw 2000 ; ; SINUSTABELLE MIT 128 WERTEN ; sinustable dw 0000h,0192h,0324h,04b5h,0646h dw 07d6h,0964h,0af1h,0c7ch,0e06h,0f8dh dw 1112h,1294h,1413h,1590h,1709h,187eh dw 19efh,1b5dh,1cc6h,1e2bh,1f8ch,20e7h dw 223dh,238eh,24dah,2620h,2760h,289ah dw 29ceh,2afbh,2c21h,2d41h,2e5ah,2f6ch dw 3076h,3179h,3274h,3368h,3453h,3537h dw 3612h,36e5h,37b0h,3871h,392bh,39dbh dw 3a82h,3b21h,3bb6h,3c42h,3cc5h,3d3fh dw 3dafh,3e15h,3e72h,3ec5h,3f0fh,3f4fh dw 3f85h,3fb1h,3fd4h,3fech,3ffbh,4000h dw 3ffbh,3fech,3fd4h,3fb1h,3f85h,3f4fh dw 3f0fh,3ec5h,3e72h,3e15h,3dafh,3d3fh dw 3cc5h,3c42h,3bb6h,3b21h,3a82h,39dbh dw 392bh,3871h,37b0h,36e5h,3612h,3537h dw 3453h,3368h,3274h,3179h,3076h,2f6ch dw 2e5ah,2d41h,2c21h,2afbh,29ceh,289ah dw 2760h,2620h,24dah,238eh,223dh,20e7h dw 1f8ch,1e2bh,1cc6h,1b5dh,19efh,187eh dw 1709h,1590h,1413h,1294h,1112h,0f8dh dw 0e06h,0c7ch,0af1h,0964h,07d6h,0646h dw 04b5h,0324h,0192h ; ; LINIEN-PUNKTE FÜR draw_obj-ROUTINE ; x1 dw 0 x2 dw 0 y1 dw 0 y2 dw 0 ; ; WINKEL FÜR DIE DREHUNGEN IN X,Y UND Z-RICHTUNG ; xw dw 0 yw dw 0 zw dw 0 ; ; PUFFER FÜR ROTIERTE 3D-KOORDINATEN ; _3dpoints dw 3*points DUP (1) ; gedrehte Koord. ; ; PUFFER FÜR UMGERECHNETE 2D-KOORDINATEN ; _2dpoints dw 2*points DUP (1) ; 2D-Koordinaten ; ; PUFFER FÜR ALTE 2D-KOORDINATEN ; old2d dw 2*points dup (0) ; Alte 2D-Koordinaten ; ; 2D-POINTER FÜR POSITIONIERUNG AUF BILDSCHIRM ; x_add dw 320 y_add dw 240 color db 1 ends data1 end start